home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 July / 1988-07.d64 / zipper #3 (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  2KB  |  47 lines
  1. 10 rem copyright 1988 compute publications, inc. - all rights reserved
  2. 15 poke 53281,15:poke 53280,15:poke 646,6
  3. 20 print"[147]   copyright 1988 compute! pub., inc."
  4. 30 printtab(11)"all rights reserved":fori=1to1500:next
  5. 40 fori=1to128:reada:x=x+a:next:ifx<>1671982thenprint"data error":stop
  6. 50 restore:print"[147]":printtab(5)"press + to open zipper one way
  7. 60 [153]:[153][163]4)"press - to open zipper other way
  8. 70 print:print:print:printtab(12)"(-.7625 to 4.25)"
  9. 80 print:print:printtab(9)"hold 1 to hear voice 1
  10. 90 [153]:[153][163]9)"hold 2 to hear voice 2
  11. 100 poke650,128
  12. 110 f=1.2:g=.6:rem f is relative pitch factor, g is absolute pitch factor
  13. 120 gosub310
  14. 130 v=54272:v1=54273:v2=54279:v3=54280:k=256
  15. 140 fort=vtov+23:poket,0:next
  16. 150 pokev+24,15
  17. 160 pokev+5,9:pokev+6,16:pokev+12,9:pokev+13,16
  18. 170 pokev+3,8:pokev+10,8
  19. 180 forq=1to64:readm,n:m=m*f*g:n=n/f*g
  20. 190 ifa$="1"thenm=0
  21. 200 ifa$="2"thenn=0
  22. 210 pokev1,int(m/k):pokev,m-int(m/k)*k
  23. 220 pokev3,int(n/k):pokev2,n-int(n/k)*k
  24. 230 pokev+4,65:gosub330:pokev+4,64
  25. 240 pokev+11,65:gosub340:pokev+11,64
  26. 250 geta$:ifa$=""then300
  27. 260 ifa$="+"thenf=f*1.05:gosub310
  28. 270 ifa$="-"thenf=f*.95:gosub310
  29. 280 iff>5thenf=5
  30. 290 iff<.25thenf=.25
  31. 300 next:restore:goto180
  32. 310 poke214,9:print:poke211,9
  33. 320 print"distance apart = "f-1"[157]         ":return
  34. 330 fort=1to50:next:return
  35. 340 fort=1to28:next:return
  36. 350 data14435,0,12860,17167,11457,17167,10814,11457,11457,11457,12860,12860
  37. 360 data11457,11457,8583,10814,7217,10814,7647,19269,8583,19269,9634,12860,8583
  38. 370 data12860,7217,14435,8583,12860,0,11457,11457,11457,12860,22915,14435,22915
  39. 380 data13625,21629,14435,21629,13625,20415,14435,20415,12860,19269,11457,19269
  40. 390 data12860,18188,14435,18188,12860,17167,12860,17167,12139,19269,12860,19269
  41. 400 data0,17167,14435,17167,12860,17167,11457,17167,10814,11457,11457,11457
  42. 410 data12860,12860,11457,11457,8583,10814,7217,10814,7647,19269,8583,19269
  43. 420 data9634,12860,8583,12860,7217,14435,8583,12860,0,11457,11457,11457,12860
  44. 430 data14435,14435,15294,17167,17167,0,19269,19269,21629,17167,22915,14435
  45. 440 data17167,11457,14435,12860,15294,14435,16203,0,17167,12860,19269,0,21629
  46. 450 data11457,22915,0,0
  47.